home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / imb9101.zip / TESTFUNC.BAS < prev   
BASIC Source File  |  1990-12-31  |  7KB  |  326 lines
  1. DECLARE FUNCTION MyVal& (StringIn$)
  2. DEFINT A-Z
  3. OPTION BASE 1
  4. DECLARE SUB TestSub (A, B$)
  5.  
  6.  
  7.    COMMON SHARED George%()
  8.    DIM George%(1024)
  9.    DIM Frank AS SINGLE
  10.  
  11.    CONST Z = 5
  12.    DIM AA(5)
  13.  
  14.    TYPE TableType
  15.      Sumpin AS INTEGER
  16.    END TYPE
  17.  
  18.    DIM Hooper AS TableType
  19.  
  20.    I = I + J
  21.    I = I - J
  22.    I = I * J
  23.    I = J \ K
  24.    ''''''''''''''''''''''''''''''''''I = J / K
  25.    ''''''''''''''''''''''''''''''''''I = J ^ K
  26.  
  27.    IF 2 * (J MOD K) > K THEN I = I + 1
  28.  
  29.  
  30. OnlyLabel:
  31.  
  32.    I = ABS(I)
  33.    CALL Absolute(I)
  34.    I = ASC("i$")
  35.    '''''''''''''''''''''''''''''''''''I = ATN(K)
  36.    BEEP
  37.    BEGINTRANS
  38.    BLOAD "ABC", VARPTR(I)
  39.    I = BOF(J)
  40.    BSAVE "ABC", I, K
  41.    I@ = CCUR(K)
  42.    '''''''''''''''''''''''''''''''''''I = CDBL(J)
  43.    CHDIR "C:\ABC"
  44.    CHDRIVE "C"
  45.    CHECKPOINT
  46.    I$ = CHR$(K)
  47.    I = CINT(K)
  48.    '''''''''''''''''''''''''''''''''''CIRCLE STEP(A, B), C, , D, E
  49.    CLEAR , , I
  50.    I = CLNG(K)
  51.    CLOSE I
  52.    CLS I
  53.    COLOR I, J, K
  54.    COM(I) OFF
  55.    COM(I) ON
  56.    COM(I) STOP
  57.    S$ = COMMAND$
  58.    COMMITTRANS
  59.    ''''''''''''''''''''''''''''''''''''I = COS(K)
  60.    CREATEINDEX #I, S$, J, T$
  61.    ''''''''''''''''''''''''''''''''''''I = CSNG(J)
  62.    I = CSRLIN
  63.    I = CVI(X$)
  64.    I = CVL(X$)
  65.    ''''''''''''''''''''''''''''''''''''A = CVS(X$)
  66.    ''''''''''''''''''''''''''''''''''''A = CVD(X$)
  67.    ''''''''''''''''''''''''''''''''''''A = CVC(X$)
  68.    ''''''''''''''''''''''''''''''''''''I = CVSMBF(X$)
  69.    ''''''''''''''''''''''''''''''''''''I = CVDMBF(X$)
  70.  
  71. DataLabel:
  72.    DATA Z,12,13
  73.    X$ = DATE$
  74.    DATE$ = X$
  75.    DEF SEG = X
  76.    DELETE I
  77.    DELETEINDEX I, S$
  78.    DELETETABLE S$, T$
  79.    S$ = DIR$(T$)
  80.    S$ = DIR$
  81.    DO WHILE I = J
  82.       LOOP
  83.  
  84.    ''''''''''''''''''''''''''''''''''''DRAW S$
  85.    END I
  86.    S$ = ENVIRON$(T$)
  87.    S$ = ENVIRON$(I)
  88.    ENVIRON S$
  89.    I = EOF(K)
  90.    ERASE George
  91.    I = ERDEV
  92.    S$ = ERDEV$
  93.    I = ERR
  94.    I = ERL
  95.    ERR = I
  96.    ERROR I
  97.    EVENT ON
  98.    EVENT OFF
  99.    ''''''''''''''''''''''''''''''''''''I = EXP(K)
  100.  
  101.    FIELD I, A AS B$
  102.    I = FILEATTR(I, J)
  103.    FILES S$
  104.    ''''''''''''''''''''''''''''''''''''I = FIX(K)
  105.    FOR I = J TO K
  106.    NEXT I
  107.    I = FRE(K)
  108.    X = FREEFILE
  109.  
  110.    GET I, J, K
  111.    GET STEP(A, B)-(C, D), AA(F)
  112.    S$ = GETINDEX$(I)
  113.    GOSUB DataLabel
  114.    GOTO DataLabel
  115.  
  116.    S$ = HEX$(K)
  117.  
  118.    IF A = A THEN A = A
  119.    S$ = INKEY$
  120.    I = INP(K)
  121.    S$ = INPUT$(I, J)
  122.    ''''''''''''''''''''''''''''''''''''INPUT A
  123.    ''''''''''''''''''''''''''''''''''''INPUT #A, B
  124.    INSERT I, Hooper
  125.    I = INSTR(J, S$, S$)
  126.    ''''''''''''''''''''''''''''''''''''I = INT(K)
  127.    CALL Interrupt(I, Hooper, Hooper)
  128.    S$ = IOCTL$(#I)
  129.    IOCTL #I, S$
  130.  
  131.    KEY I, S$
  132.    KEY(I) ON
  133.    KEY(I) OFF
  134.    KEY(I) STOP
  135.    KILL S$
  136.  
  137.    I = LBOUND(George)
  138.    S$ = LCASE$(T$)
  139.    S$ = LEFT$(S$, I)
  140.    I = LEN(S$)
  141.    LET I = J
  142.    LINE (I, J)-(K, L)
  143.    ''''''''''''''''''''''''''''''''''''LINE INPUT S$
  144.    ''''''''''''''''''''''''''''''''''''LINE INPUT #I, S$
  145.    I = LOC(K)
  146.    LOCATE I, J, K, L, M
  147.    LOCK #I, J
  148.    I = LOF(K)
  149.    ''''''''''''''''''''''''''''''''''''I = LOG(K)
  150.    I = LPOS(K)
  151.    LPRINT S$
  152.    LSET S$ = T$
  153.    S$ = LTRIM$(T$)
  154.  
  155.    S$ = MID$(T$, 1, 1)
  156.    MID$(S$, 1, 1) = T$
  157.    MKDIR S$
  158.    S$ = MKI$(I)
  159.    S$ = MKL$(I)
  160.    ''''''''''''''''''''''''''''''''''''S$ = MKS$(I)
  161.    ''''''''''''''''''''''''''''''''''''S$ = MKD$(I)
  162.    S$ = MKC$(I)
  163.    ''''''''''''''''''''''''''''''''''''S$ = MKSMBF$(I)
  164.    ''''''''''''''''''''''''''''''''''''S$ = MKDMBF$(I)
  165.    MOVEFIRST I
  166.    MOVELAST I
  167.    MOVENEXT I
  168.    MOVEPREVIOUS I
  169.    NAME S$ AS T$
  170.  
  171.    S$ = OCT$(I)
  172.    ON ERROR GOTO OnlyLabel
  173.    ON COM(I) GOSUB OnlyLabel
  174.    ON KEY(I) GOSUB OnlyLabel
  175.    ON PEN GOSUB OnlyLabel
  176.    ON PLAY(I) GOSUB OnlyLabel
  177.    ON STRIG(I) GOSUB OnlyLabel
  178.    ON TIMER(I) GOSUB OnlyLabel
  179.    ON UEVENT GOSUB OnlyLabel
  180.    ON I GOSUB OnlyLabel
  181.    OPEN S$ FOR RANDOM AS J
  182.    OPEN S$ FOR BINARY AS J
  183.    OPEN S$ FOR INPUT AS J
  184.    OPEN S$ FOR OUTPUT AS J
  185.    OPEN S$ FOR APPEND AS J
  186.    OPEN "COM1:" FOR INPUT AS I LEN = J
  187.    ''Option Base at beginning
  188.    OUT I, J
  189.  
  190.    PAINT (I, J), K, L&
  191.    PAINT (I, J), S$
  192.    PALETTE I, J
  193.    PALETTE USING George
  194.    PCOPY I, J
  195.    J = PEEK(I)
  196.    I = PEN(J)
  197.    PEN ON
  198.    '''''''''''''''''''''''''''''''''''''''''I = PLAY(J)
  199.    PLAY ON
  200.    PLAY OFF
  201.    PLAY STOP
  202.    '''''''''''''''''''''''''''''''''''''''''PLAY S$
  203.    '''''''''''''''''''''''''''''''''''''''''I = PMAP(I, J)
  204.    '''''''''''''''''''''''''''''''''''''''''I = POINT(J)
  205.    I = POINT(J, K)
  206.    POKE I, J
  207.    I = POS(J)
  208.    PRESET (I, J)
  209.    PRINT I
  210.    PRINT #I, J
  211.    PRINT USING S$; I
  212.    PSET (I, J), L
  213.    PUT #I, J, K
  214.    PUT (I, J), George
  215.  
  216.    '''''''''''''''''''''''''''''''''''''''''RANDOMIZE I
  217.    '''''''''''''''''''''''''''''''''''''''''READ I
  218.    REDIM George(I)
  219.    RESET
  220.    '''''''''''''''''''''''''''''''''''''''''RESTORE DataLabel
  221.    RESUME NEXT
  222.    RETRIEVE #I, Hooper
  223.    RETURN
  224.    RETURN DataLabel
  225.    S$ = RIGHT$(T$, I)
  226.    RMDIR S$
  227.    '''''''''''''''''''''''''''''''''''''''''I = RND
  228.    ROLLBACK I
  229.    ROLLBACK ALL
  230.    RSET S$ = T$
  231.    S$ = RTRIM$(T$)
  232.    RUN S$
  233.  
  234.    I = SADD(S$)
  235.    I = SAVEPOINT
  236.    I = SCREEN(J, K, L)
  237.    SCREEN I, J, K, L
  238.    I = SEEK(J)
  239.    SEEK #I, J
  240.    SEEKGT I, J
  241.    SEEKGE I, J
  242.    SEEKEQ I, J
  243.    SELECT CASE I
  244.     CASE J
  245.    END SELECT
  246.    SETINDEX #I, S$
  247.    I = SETMEM(J)
  248.    I = SGN(J)
  249.    SHELL S$
  250.    '''''''''''''''''''''''''''''''''''''''''I = SIN(J)
  251.    SLEEP I
  252.    '''''''''''''''''''''''''''''''''''''''''SOUND I, J
  253.    S$ = SPACE$(I)
  254.    PRINT SPC(I);
  255.    '''''''''''''''''''''''''''''''''''''''''I = SQR(J)
  256.    I = SSEG(S$)
  257.    I = SSEGADD(S$)
  258.    I = STACK
  259.    STACK I
  260.    I = STICK(J)
  261.    STOP I
  262.    S$ = STR$(J)
  263.    I = STRIG(J)
  264.    STRIG(I) ON
  265.    S$ = STRING$(I, T$)
  266.    SWAP I, J
  267.    SYSTEM I
  268.  
  269.    PRINT TAB(I);
  270.    '''''''''''''''''''''''''''''''''''''''''I = TAN(J)
  271.    I = TEXTCOMP(S$, T$)
  272.    S$ = TIME$
  273.    TIME$ = S$
  274.    '''''''''''''''''''''''''''''''''''''''''I = TIMER
  275.    TIMER ON
  276.    TIMER OFF
  277.    TIMER STOP
  278.    TRON
  279.    TROFF
  280.  
  281.    I = UBOUND(George)
  282.    S$ = UCASE$(T$)
  283.    UEVENT ON
  284.    UEVENT OFF
  285.    UEVENT STOP
  286.    UNLOCK #I, J
  287.    UPDATE #I, Hooper
  288.  
  289.    '''''''''''''''''''''''''''''''''''''''''I = VAL(S$)
  290.    S$ = VARPTR$(J)
  291.    I = VARPTR(J)
  292.    I = VARSEG(J)
  293.    VIEW (I, J)-(K, L), M, N
  294.    VIEW PRINT I TO J
  295.  
  296.    WAIT I, J, K
  297.    WIDTH I, J
  298.    WIDTH #I, J
  299.    WIDTH LPRINT I
  300.    '''''''''''''''''''''''''''''''''''''''''WINDOW (I, J)-(K, L)
  301.    WRITE I
  302.    WRITE #I, J
  303.  
  304. DEF fnPoker (A, B)
  305.    EXIT DEF
  306. END DEF
  307.  
  308. EVENT ON
  309. FUNCTION MyVal& (StringIn$)
  310.  
  311.    K& = 0
  312.    TempLen = LEN(StringIn$)
  313.    FOR I = TempLen TO 1 STEP -1
  314.       J& = ASC(MID$(StringIn$, TempLen - I + 1, 1)) - 48
  315.       N = 1
  316.       FOR M = 1 TO I - 1
  317.         N = N * 10
  318.       NEXT M
  319.       J& = J& * N
  320.       K& = K& + J&
  321.    NEXT I
  322.    MyVal& = K&
  323.  
  324. END FUNCTION
  325.  
  326.